For Each Single[] (gb)

Dim hSingleArray As Single[]
Dim aSingle As Single
For Each aSingle In hSingleArray
  ...
Next

Enumerates each element stored in the array.